home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / msdos / raytrace / pov / gen / form04a / sue / morewebs.frm < prev    next >
Encoding:
Text File  |  1994-01-25  |  899 b   |  26 lines
  1. Copyright (c) Sue Cunningham
  2.  
  3. //s1 = sphere 5 stack 30 in 10 bend 60;
  4. //s2 = sphere 5 stack 30 in 15 bend -120;
  5. //s3 = sphere 5 stack 30 in 10 bend 100 twist 60;
  6. //ss = sphere 0.1;
  7. //s4 = sphere 0.1, sphere 0.1 , sphere 0.1 delete 2 stack 30 in 15;
  8. spoke1 = ellipse <0.5, 0.2, 2> stack 50 in 15 twist 2*360, 0.5 bend 45;
  9. spoke2 = sphere 0.1 stack 50 in 10% bend 120;
  10. //spoke3 = sphere stack 100 in 10% bend 2*360 twist 2*180;
  11. //     knot shape
  12. //knot=s2,s2,s2,s2;
  13.  
  14. // seven examples of a web
  15. // the file currently displays just the first one
  16. //first=ss web 5 with s1 2 hole 2;
  17. //second=ss web 5 with s3 4 hole 1.5;
  18. //third=s1 web 5 with s3 4 ;
  19. //fourth=ss web 5 with knot 1 hole 2;
  20. //fifth=knot web 6 with s4 1 hole 2;
  21. //sixth = spoke2 web 5 with spoke3 1 hole 1.5;
  22. seventh = spoke1 web 5 with spoke2 1 ;
  23. //display line - change this to display the other webs
  24. seventh;
  25. end;
  26.